home *** CD-ROM | disk | FTP | other *** search
- global gNavMovieID, gNavMovieObj, gVR.HPanAngle, gVR.VPanAngle
-
- on mouseUp
- if the machineType = 256 then
- if objectp(gNavMovieObj) then
- set gVR.NavHPanAngle to string(gNavMovieObj(mGetHPanAngle))
- set gVR.NavVPanAngle to string(gNavMovieObj(mGetVPanAngle))
- end if
- else
- if gNavMovieID <> EMPTY then
- set gVR.NavHPanAngle to NavMovie("Direct", gNavMovieID, "Get", "hPanAngle")
- set gVR.NavVPanAngle to NavMovie("Direct", gNavMovieID, "Get", "vPanAngle")
- end if
- end if
- end
-